home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1998 August: Tool Chest / Dev.CD Aug 98 TC.toast / What's New? / Software Development Kits / Mac OS USB DDK / MacOS USB DDK 1.0b4 / NeptuneDDK / Tools / NeptuneDDKMPWMenu < prev   
Encoding:
Text File  |  1998-06-26  |  7.2 KB  |  151 lines  |  [TEXT/MPS ]
  1. #
  2. #    File:        BuildNeptuneMenu
  3. #
  4. #    Contains:    xxx put contents here xxx
  5. #
  6. #    Version:    xxx put version here xxx
  7. #
  8. #    Copyright:    © 1997-1998 by Apple Computer, Inc., all rights reserved.
  9. #
  10. #
  11. set echo 0
  12.  
  13. Set -e USBDDKObjects "{NeptuneDDKFolder}Objects:";
  14. Set -e USBDDKTargets "{NeptuneDDKFolder}Targets:";
  15. Set -e USBDDKReleaseExtensions "{NeptuneDDKFolder}For System Folder (DDK Built):";
  16. Set -e USBDDKMapDir "{NeptuneDDKFolder}Targets:Maps:"
  17.  
  18. Set -e USBDDKDrivers "{NeptuneDDKFolder}Drivers:";
  19. Set -e USBDDKExamples "{NeptuneDDKFolder}Examples:";
  20. Set -e USBDDKInterfaces "{NeptuneDDKFolder}Interfaces:";
  21. Set -e USBDDKRIncludes "{NeptuneDDKFolder}Interfaces:";
  22. Set -e USBDDKLibraries "{NeptuneDDKFolder}Libraries:";
  23.  
  24. Set -e USBDDKInterfacesExternal "{CIncludes}";
  25. Set -e USBDDKInterfacesInternal "{NeptuneDDKFolder}Interfaces:";
  26.  
  27. # •••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  28. # Add the NeptuneDDK menu with its associated items.
  29. Set NeptuneDDKProjectMenuName NeptuneDDK;                                    # NeptuneDDK is the name of the menu
  30.  
  31. DeleteMenu "{NeptuneDDKProjectMenuName}" ∑ dev:null || Echo ∑ dev:null            
  32.  
  33.  
  34. # ••••• Set Build mode (Engineering or SCM):
  35. #
  36. Alias SetBuildMenus 'If {NeptuneDDKEngrBuild} ;                                                             ∂
  37.     AddMenu "NeptuneDDK" "Engineering Build!√" "Set -e NeptuneDDKEngrBuild 1; SetBuildMenus" ;                 ∂
  38.     AddMenu "NeptuneDDK" "SCM Build" "Set -e NeptuneDDKEngrBuild 0 ; SetBuildMenus" ;                         ∂
  39.   Else;                                                                                                     ∂
  40.     Set -e NeptuneDDKSymbols "-sym off";                                                                     ∂
  41.     Set -e NeptuneDDKMBGSymbols "-mbg off";                                                                 ∂
  42.     Set -e NeptuneDDKDebugFlag 0;                                                                             ∂
  43.     Set -e DebugBuild 0;                                                                                     ∂
  44.     AddMenu "NeptuneDDK" "Engineering Build" "Set -e NeptuneDDKEngrBuild 1; SetBuildMenus" ;                 ∂
  45.     AddMenu "NeptuneDDK" "SCM Build!√" "Set -e NeptuneDDKEngrBuild 0; SetBuildMenus" ;                         ∂
  46.   End;'
  47.  
  48. SetBuildMenus;
  49.  
  50. AddMenu "{NeptuneDDKProjectMenuName}" '(-' ''
  51.  
  52. # ••••• Does the basic build.
  53. #
  54. AddMenu "{NeptuneDDKProjectMenuName}" 'Build Driver or Example/ç' 'Open "{Worksheet}"; "{NeptuneDDKToolsFolder}"NeptuneDDKBuildDriver ∑∑ "{Worksheet}"'
  55.  
  56.  
  57. # ••••• Does the basic full build by specifying the -e delimeter to the make function.
  58. # Warning!  This is dangerous because if a source file fails to assemble/compile, there still might be a corresponding 
  59. # old object file hanging around which would get linked in as if there was no problem... - DMS
  60. # AddMenu "{NeptuneDDKProjectMenuName}" 'Full Build Driver or Example/ƒ' 'Open "{Worksheet}"; "{NeptuneDDKToolsFolder}"NeptuneDDKBuildDriver full ∑∑ "{Worksheet}"'
  61.  
  62.  
  63. # ••••• Deletes all the objects of the current driver as per its makefile - then does a full rebuild.
  64. #
  65. AddMenu "{NeptuneDDKProjectMenuName}" 'Clean & Rebuild Driver or Example…' 'Open "{Worksheet}"; ∂
  66.                                                                 Confirm "Delete object files and rebuild?" || (Beep; Exit); ∂
  67.                                                                 "{NeptuneDDKToolsFolder}"NeptuneDDKBuildDriver clean ∑∑ "{Worksheet}"'
  68.  
  69. # ••••• Toggles the NeptuneDDKSymbols variable to turn debugger symbols on or off
  70. #
  71. AddMenu "{NeptuneDDKProjectMenuName}" 'Debug Symbols & Flags…'    'if "{NeptuneDDKSymbols}" == "-sym on"; ∂
  72.                                                                 Confirm "Symbols and Flags are currently on. Turn all symbols off?" || (Beep; Exit); ∂
  73.                                                                 Set -e NeptuneDDKSymbols "-sym off"; ∂
  74.                                                                 Set -e NeptuneDDKMBGSymbols "-mbg off"; ∂
  75.                                                                 Set -e NeptuneDDKDebugFlag 0; ∂
  76.                                                                 Set -e DebugBuild 0; ∂
  77.                                                             Else; ∂
  78.                                                                 Confirm "Symbols and Flags are currently off. Turn all symbols on?" || (Beep; Exit); ∂
  79.                                                                 Set -e NeptuneDDKSymbols "-sym on"; ∂
  80.                                                                 Set -e NeptuneDDKMBGSymbols "-mbg on"; ∂
  81.                                                                 Set -e NeptuneDDKDebugFlag 1; ∂
  82.                                                                 Set -e DebugBuild 1; ∂
  83.                                                             End; ∂
  84.                                                             Echo "#  NeptuneDDKSymbols = "{NeptuneDDKSymbols} ∑∑ "{Worksheet}"; ∂
  85.                                                             Echo "#  NeptuneDDKMBGSymbols = "{NeptuneDDKMBGSymbols} ∑∑ "{Worksheet}"; ∂
  86.                                                             Echo "#  NeptuneDDKDebugFlag = "{NeptuneDDKDebugFlag} ∑∑ "{Worksheet}"; ';
  87.  
  88.  
  89.  
  90. AddMenu "{NeptuneDDKProjectMenuName}" "(-" "";
  91.  
  92.  
  93. # ••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••••
  94. # This for loop puts all of the drivers directories in the NeptuneDDK menu.
  95. # When the driver name is selected in the menu, the current directory is set to where that folder currently exists.
  96. # The UserStartup script is executed again to get the proper menu un-checked and checked. 
  97. #
  98. #echo "Add select driver"
  99. set foldersfound 0
  100. AddMenu "{NeptuneDDKProjectMenuName}" 'Select Driver in DriverSrc Folder' '';
  101. if `Exists "{NeptuneDDKFolder}DriverSrc"`
  102.     For i In `Files -af -f -d "{NeptuneDDKFolder}DriverSrc"`                        # For all directories in Sources folder....
  103.         (Evaluate "{i}" =~ /≈':'≈':'(≈)®1':'/) ∑ dev:null                        # Get the name of the folder, put in ®1
  104.         Set char ''                                                                # else make sure there is no checkmark.
  105.         AddMenu "DDKDriverList" "{®1}{char}"   "(Directory ∂"{i}∂") ∑∑ ∂""{Worksheet}"∂" ; set -e USBDDKDriverPath {i};  set -e USBDDKDriver {®1}";    
  106.         set foldersfound '1'
  107.     End
  108.     if {foldersfound} == '1'
  109.         AddMenu -link "{NeptuneDDKProjectMenuName}" 'Select Driver in DriverSrc Folder' 'DDKDriverList';
  110.     End
  111. End
  112.  
  113. #echo "Add select example"
  114. set foldersfound 0
  115. AddMenu "{NeptuneDDKProjectMenuName}" 'Select Example' '';
  116. if `Exists "{NeptuneDDKFolder}Examples"`
  117.     For i In `Files -af -f -d "{NeptuneDDKFolder}Examples"`                        # For all directories in Examples folder....
  118.         (Evaluate "{i}" =~ /≈':'≈':'(≈)®1':'/) ∑ dev:null                        # Get the name of the folder, put in ®1
  119.         Set char ''                                                                # else make sure there is no checkmark.
  120.         AddMenu "ExampleList" "{®1}{char}" "(Directory ∂"{i}∂") ∑∑ ∂""{Worksheet}"∂" ; set -e USBDDKDriverPath {i};  set -e USBDDKDriver {®1}";    
  121.         set foldersfound '1'
  122.     End
  123.     if {foldersfound} == '1'
  124.         AddMenu -link "{NeptuneDDKProjectMenuName}" 'Select Example' 'ExampleList';
  125.     End
  126. End
  127.  
  128. #echo "Add create driver menu item"
  129. AddMenu "{NeptuneDDKProjectMenuName}" '(-' '';
  130. AddMenu "{NeptuneDDKProjectMenuName}" 'Create New Driver in DriverSrc folder…' 'Open "{Worksheet}"; ∂
  131.         Set NewDriverName "`(Request "What is the name of the new driver?")≥dev:null`"; ∂
  132.         if ¬ `Exists "{NeptuneDDKFolder}DriverSrc:""{NewDriverName}"`; ∂
  133.             NewFolder "{NeptuneDDKFolder}DriverSrc:""{NewDriverName}"; ∂
  134.         End;  ∂
  135.         Execute "{NeptuneDDKToolsFolder}NeptuneDDKMPWMenu"; '
  136.  
  137. #echo "Add build menu items"
  138. AddMenu "{NeptuneDDKProjectMenuName}" '(-' '';
  139. AddMenu "{NeptuneDDKProjectMenuName}" 'Build All USB Drivers and examples…' 'Open "{Worksheet}"; ∂
  140.                                                             directory "{NeptuneDDKFolder}{NeptuneDDKLocalFolder}"; ∂
  141.                                                              "{NeptuneDDKToolsFolder}"NeptuneDDKBuildAll ∑∑ "{Worksheet}";'
  142.  
  143. AddMenu "{NeptuneDDKProjectMenuName}" 'Clean & Build All USB Drivers and examples…' 'Open "{Worksheet}"; ∂
  144.                                                             directory "{NeptuneDDKFolder}{NeptuneDDKLocalFolder}"; ∂
  145.                                                              "{NeptuneDDKToolsFolder}"NeptuneDDKBuildAll clean ∑∑ "{Worksheet}";'
  146.  
  147. AddMenu "{NeptuneDDKProjectMenuName}" 'Full Build All USB Drivers and examples…'     'Open "{Worksheet}"; ∂
  148.                                                             Confirm "FULL Build of all USB Drivers?∂n" || (Beep; Exit); ∂
  149.                                                             directory "{NeptuneDDKFolder}{NeptuneDDKLocalFolder}"; ∂
  150.                                                             "{NeptuneDDKToolsFolder}"NeptuneDDKBuildAll full ∑∑ "{Worksheet}";'
  151.